home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Tcl / SystemCode / alphaVersionInfo.tcl < prev    next >
Encoding:
Text File  |  2001-02-08  |  423 b   |  15 lines
  1. set alpha::version [lindex [split [string trimleft [version] "Alpha Version"] ,] 0]
  2. # set AlphaTcl version (the version of this library of .tcl files)
  3. set alpha::tclversion 7.4.1
  4. if {![info exists alpha::platform]} {
  5.     set alpha::platform "alpha"
  6. }
  7.  
  8. if {${alpha::platform} == "alpha"} {
  9.     # Get Alpha's current name.
  10.     regexp {"([^"]+)" "ALFA" } [processes] "" ALPHA
  11. } else {
  12.     set ALPHA [info nameofexecutable]
  13. }
  14.  
  15.